home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / QUILT.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.2 KB  |  125 lines
  1. 10 POKE53281,1:PRINT"[147]"SPC(8)"[152]*QUILT* BY C. GRIFFEATH"
  2. 20 PRINTSPC(5)"(C) 1983.  PERMISSION GRANTED
  3. 30 [153][166]6)"FOR NON-COMMERCIAL COPYING."
  4. 40 [153][166]12)"MAY NOT BE SOLD."
  5. 90 [129] T[178]1[164]3500:[130]
  6. 100 [151]52,48:[151]56,48:[156]
  7. 110 [151]53265,[194](53265)[176]64:[151]53281,4:[151]53282,1:[151]53283,15:[151]53284,3
  8. 120 [153]"LOADNEED INSTRUCTIONS Y/N?"
  9. 130 [161]A$:[139]A$[178]""[167]130
  10. 140 [139]A$[178]"Y"[167][141]850
  11. 150 [153]"SETTING UP--ONE MOMENT PLEASE"
  12. 160 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
  13. 170 [129]I[178]0[164]511:[151]I[170]14336,[194](I[170]53248):[130]
  14. 180 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  15. 190 [129]I[178]14336[164]14343:[151]I,255:[130]
  16. 200 [129]I[178]14560[164]14567:[135]Q:[151]I,Q:[130]
  17. 210 [131]1,3,7,15,31,63,127,255
  18. 220 [129]I[178]14568[164]14575:[135]Q:[151]I,Q:[130]
  19. 230 [131]128,192,224,240,248,252,254,255
  20. 240 [129]I[178]14584[164]14591:[135]Q:[151]I,Q:[130]
  21. 250 [131]255,254,252,248,240,224,192,128
  22. 260 [129]I[178]14616[164]14623:[135]Q:[151]I,Q:[130]
  23. 270 [131]255,127,63,31,15,7,3,1
  24. 280 [129]I[178]14632[164]14639:[135]Q:[151]I,Q:[130]
  25. 290 [131]170,85,170,85,170,85,170,85
  26. 300 [151]53272,([194](53272)[175]240)[176]12:[153][199](14)
  27. 310 V[178]53248:[151]V[170]21,4:[151]2042,13:[151]V[170]41,0:[129]I[178]0[164]62:[135]Q:[151]832[170]I,Q:[130]
  28. 320 [131]0,0,0,0,0,0,1,128,0,1,128,0,1,128,0,0,0,0,0,0,0
  29. 330 [131]0,0,0,0,0,0,224,14,0,0,0,0,0,0,0,0,0,0,0,0,0
  30. 340 [131]0,0,0,1,128,0,1,128,0,1,128,0,0,0,0,0,0,0,0,0,0
  31. 350 [129]N[178]0[164]5:[135]CC(N):[130]
  32. 360 [131]0,28,29,31,35,37
  33. 370 [153]"LOADSELECT:      1 BEGIN NEW QUILT":[153]
  34. 380 [153]"             2 USE OLD SAVED QUILT":[153]
  35. 390 [153]"             3 REVIEW COLOR PALETTE":[153]
  36. 400 [153]"             4 QUIT"
  37. 410 [161]A$:[139]A$[178]""[167]410
  38. 420 A[178][197](A$):[139]A[179]1[176]A[177]4[167]370
  39. 430 [145]A[137]450,440,1130,1250
  40. 440 [153]:[153]:[133]"NAME OF OLD QUILT";OQ$:[139]OQ$[178]""[167][153]"ONONONON":[137]440
  41. 450 [153]:[133]"NEW QUILT NAME";NQ$:[139]NQ$[178]""[176]NQ$[178]OQ$[167][153]"ONONON":[137]450
  42. 460 [153]"LOAD":[139]A[178]2[167][141]770
  43. 470 X[178]172:SY[178]140
  44. 480 JV[178][194](56320):FB[178]JV[175]16:JV[178]15[171](JV[175]15)
  45. 490 X[178]X[170](JV[175]8)[171]2[172](JV[175]4):[139]X[179]20[167]X[178]20
  46. 500 [139]X[177]332[167]X[178]332
  47. 510 [139]X[177]255[167]SX[178]X[171]255:[137]530
  48. 520 SX[178]X
  49. 530 SY[178]SY[170]4[172]((JV[175]2)[171]2[172](JV[175]1)):[139]SY[179]44[167]SY[178]44
  50. 540 [139]SY[177]236[167]SY[178]236
  51. 550 [151]V[170]4,SX:[151]V[170]16,[171]4[172](X[177]255):[151]V[170]5,SY
  52. 560 [139]FB[167]580
  53. 570 [141]830:[151]SL,CC(J)[170]64[172]RG[172]FL:[151]CL,CO
  54. 580 [161]A$
  55. 590 [139]A$[178]"INPUT"[167]J[178]J[170]1:[139]J[177](4[170]FL)[167]J[178]FL
  56. 600 [139]A$[178]"DIM"[167]CO[178]CO[170]1:[139]CO[177]15[167]CO[178]0
  57. 610 [139]A$[178]"READ"[167]BG[178](BG[170]1)[172][171](BG[179]15):[151]53281,BG
  58. 620 [139]A$[178]"LET"[167]BD[178](BD[170]1)[172][171](BD[179]15):[151]53280,BD
  59. 630 [139]A$[178]"RUN"[167]RG[178]RG[170]1:[139]RG[177]3[167]RG[178]1
  60. 640 [139]A$[178]"^"[167][153]"LOAD":[137]470
  61. 650 [139]A$[178]" "[167][141]830:[151]SL,32
  62. 660 [139]A$[178]"X"[167]FL[178]1[171]FL:RG[178]FL:J[178]5[172]FL:[137]570
  63. 670 [139]A$[178]"S"[167]690
  64. 680 [137]480
  65. 690 [159]15,8,15,"I0":[159]8,8,2,"0:"[170]NQ$[170]",S,W"
  66. 700 Z$[178][199](13):[153]"CLR"
  67. 710 [129]I[178]53280[164]53284:[152]8,[194](I):[130]:[152]8,Z$
  68. 720 [129]I[178]1024[164]2023:[152]8,[194](I):[152]8,[194](I[170]54272)
  69. 730 [139]I[177]1027[167][153]"";I[171]1023
  70. 740 [130]
  71. 750 [160]8:[160]15
  72. 760 [151]53281,4:[153]"LOADQUILT SAVED--NAME WAS ";NQ$:[151]V[170]21,0:[128]
  73. 770 [159]15,8,15:[159]8,8,2,"0:"[170]OQ$[170]",S,R"
  74. 780 [132]15,E1,E2$,E3,E4:[139]E1[167][153]E2$:[129]T[178]1[164]1000:[130]:[137]370
  75. 790 [129]I[178]0[164]4:[132]8,A:[151]53280[170]I,A:[130]
  76. 800 [129]I[178]1024[164]2023:[132]8,B:[132]8,C
  77. 810 [151]I,B:[151]I[170]54272,C:[130]
  78. 820 [160]8:[160]15:[142]
  79. 830 SL[178]1024[170]40[172][181]((SY[171]44)[173]8)[170][181]((X[171]20)[173]8):CL[178]SL[170]54272
  80. 840 [142]
  81. 850 [153]"LOADTHIS PROGRAM ALLOWS YOU TO DESIGN       PATCHWORK PATTERNS ON THE
  82. 860 PRINT"SCREEN USING A JOYSTICK IN PORT TWO":PRINT
  83. 870 PRINT"PATTERNS ARE MADE UP OF SOLID SQUARES   AND RIGHT TRIANGLES,IN ANY OF
  84. 880 [153]"SIXTEEN COLORS.":[153]
  85. 890 [153]"AFTER YOU CHOOSE A NAME FOR YOUR QUILT, A 'TARGET' WILL APPEAR ON THE
  86. 900 PRINT"SCREEN.  STEER THE TARGET WITH THE      JOYSTICK, AND USE THE FIRE"
  87. 910 PRINT"BUTTON TO SET A PIECE INTO YOUR         PATCHWORK!"
  88. 920 PRINT:PRINT:PRINT:PRINT:PRINT"               HIT A KEY"
  89. 930 GETA$:IFA$=""THEN930
  90. 940 PRINT"[147]           XTENDED COLOR MODE"
  91. 950 PRINT:PRINT:PRINT"CHOOSING XTENDED COLOR MODE ALLOWS YOU"
  92. 960 PRINT"TO USE MANY MORE THAN THE STANDARD 16"
  93. 970 PRINT"COLORS THROUGH A BLENDING TECHNIQUE"
  94. 980 PRINT:PRINT"YOU MAY USE UP TO 3 BLENDING COLORS, OR"
  95. 990 PRINT"'REGISTERS' FOR USE WITH YOUR PALETTE"
  96. 1000 PRINT"        HIT ANY KEY TO CONTINUE"
  97. 1010 GETA$:IFA$=""THEN1010
  98. 1020 PRINT"[147]            KEY DEFINITIONS"
  99. 1030 PRINT" F1       CHANGES SHAPE OF PATCH         F3       CHANGES COLOR";
  100. 1040 PRINT" OF PATCH         F5       CHANGES SCREEN COLOR"
  101. 1050 PRINT" F7       CHANGES BORDER COLOR"
  102. 1060 PRINT" F4       CHANGES XTENDED COLOR":PRINT
  103. 1070 PRINT"SPACE     ERASES A PATCH                ^         CLEARS SCREEN"
  104. 1080 PRINT"X         XTENDED COLOR ON/OFF
  105. 1090 [153]:[153]"S         SAVES QUILT TO DISK"
  106. 1100 [153]"         HIT ANY KEY TO CONTINUE"
  107. 1110 [161]A$:[139]A$[178]""[167]1110
  108. 1120 [142]
  109. 1130 CO$[178]"STOPOPENCLRSYSFORVERIFYDEFPOKEPRINT#PRINTCONTLIST":[151]53281,1:[153]"LOAD"
  110. 1140 [129]I[178]1[164]16:[153][202](CO$,I,1);[201]([196](I),2);" ";
  111. 1150 [153]" @@@@@#_FNFNFNFNFNTAB((null)%%%%%#_FNFNFNFNFNTAB((null)WAIT"
  112. 1160 [130]
  113. 1170 [153]:[153]"STOP                (null)>       R2WAIT       (null)<"
  114. 1180 [153]"             ENTER 0 TO EXIT"
  115. 1190 [133]"CHOOSE REGISTER--1 TO 3      CMDCMDCMDCMDCMDCMD";RG
  116. 1200 [139]RG[178]0[167][151]53281,4:[137]370
  117. 1210 [139]RG[179]1[176]RG[177]3[167]1190
  118. 1220 [133]"CHOOSE COLOR--1 TO 16      CMDCMDCMDCMDCMDCMD";XC
  119. 1230 [139]XC[179]1[176]XC[177]16[167]1220
  120. 1240 [151]53281[170]RG,XC[171]1:[137]1190
  121. 1250 [153]"ARE YOU SURE?"
  122. 1251 [161]A$:[139]A$[178]""[167]1251
  123. 1252 [139]A$[179][177]"Y"[167][153]"LOAD":[137]370
  124. 1253 [158]64738
  125.